home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / CDT128.ARC / DUMP.C < prev    next >
Text File  |  2019-04-13  |  2KB  |  79 lines
  1. /***********************************************************************/
  2. /***********************************************************************/
  3. /*                                                                     */
  4. /* ╘HIS PROGRAM IS COPYRIGHT 1986 BY ┴LAN ┘ORINKS.  ╔T MAY BE FREELY   */
  5. /* DISTRIBUTED FOR NON COMMERCIAL USAGE IF THIS COPYRIGHT NOTICE IS    */
  6. /* LEFT INTACT. ├OMMERCIAL USAGE OF THIS PROGRAM IS EXPLICITLY         */
  7. /* FORBIDDEN WITHOUT THE WRITTEN PERMISSION OF THE AUTHOR.             */
  8. /*                                                                     */
  9. /***********************************************************************/
  10. /***********************************************************************/
  11.  
  12.  
  13. /*     CDT VERSION 1.0    PART 9 OF 15   ╩ULY 25, 1986                 */
  14.  
  15.  
  16.  
  17. /* MEMORY DUMP FUNCTION */
  18.  
  19. #INCLUDE <STDIO.H>
  20. #INCLUDE "DBUG.H"
  21.  
  22. #IFDEF ├╧╠80        /* DEFINE THE NUMBER OF BYTES TO PRINT PER LINE */
  23.     #DEFINE ┬├╧╒╬╘  16
  24. #ELSE
  25.     #DEFINE ┬├╧╒╬╘  8
  26. #ENDIF
  27.  
  28.  
  29. VOID
  30. DUMP()
  31. █
  32. AUTO    CHAR    *I ;          /* MUST BE AUTO - PASSED AS FUNC ARG */
  33. AUTO    INT      LNCNT = 0 ;  /* PRINTED LINE COUNTER-AUTO BECAUSE IT WORKS */
  34.         INT      C ;          /* RECIPIENT OF GETCHAR */                   
  35.         ╒╔╬╘     BYTE ;       /* BYTE TO BE PRINTED */
  36. EXTERN  ┴╥╟╙     ALLARG ;     /* ARGUMENT UNION */
  37. EXTERN  INT      PAGE ;       /* PAGE FLAG */
  38. EXTERN  ╒╔╬╘     HATOI() ;    /* HEX TO ASCII CONVERSION FUNCTION */
  39. EXTERN  VOID     PAGER() ;    /* PAGINATE FUNCTION */
  40.  
  41.  
  42.     FOR( ; ╙┴──╥(DSDMP) < ┼┴──╥(DSDMP); ╙┴──╥(DSDMP) += ┬├╧╒╬╘ )
  43.     █
  44.         /* PRINTF FIRST ADDRESS OF PRINT LINE */
  45.  
  46.         PRINTF("\N%04X: ",╙┴──╥(DSDMP)) ;
  47.  
  48.  
  49.         /* PRINT LINE OF HEX VALUES */
  50.  
  51.         FOR( I = ╙┴──╥(DSDMP) ; I < ╙┴──╥(DSDMP) + ┬├╧╒╬╘ ; I++)
  52. #IFDEF ├64
  53.            PRINTF("%02X ", ╨┼┼╦( I ) ); 
  54. #ELSE
  55.            PRINTF("%02X ", PEEK(┬┴╬╦(DSDMP), (UNSIGNED) I)) ; 
  56. #ENDIF
  57.  
  58.  
  59.         /* CONTINUE LINE WITH ASCII VALUES */
  60.  
  61.         FOR( I = ╙┴──╥(DSDMP) ; I < ╙┴──╥(DSDMP) + ┬├╧╒╬╘ ; I++)
  62.         █
  63. #IFDEF ├64
  64.             IF( ISPRINT( BYTE = ╨┼┼╦( I ) ) ) 
  65. #ELSE
  66.             IF( ISPRINT( BYTE = PEEK(┬┴╬╦(DSDMP), (UNSIGNED) I) ) ) 
  67. #ENDIF
  68.                 PRINTF("%C",BYTE) ;
  69.             ELSE
  70.                 PRINTF(".") ;
  71.         ▌
  72.  
  73.  
  74.         /* PAGEING NECESSARY ? */
  75.         IF( PAGE == ╘╥╒┼ )
  76.             PAGER() ;
  77.     ▌
  78. ▌
  79.